From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 12 Oct 1996 23:54:33 +0000 (+0000)
Subject: Use defalias not define-function.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~82635
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e462e42fc2fdd00c0ac2d4afeed76270bfe41c42;p=emacs.git

Use defalias not define-function.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 42d5a79abf2..50b4eb1fd92 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -700,7 +700,7 @@ Get previous element of history which is a completion of minibuffer contents."
       (forward-line (1- arg)))))
 
 ;Put this on C-x u, so we can force that rather than C-_ into startup msg
-(define-function 'advertised-undo 'undo)
+(defalias 'advertised-undo 'undo)
 
 (defun undo (&optional arg)
   "Undo some previous changes.
@@ -1601,7 +1601,7 @@ Does not set point.  Does nothing if mark ring is empty."
 	(if (null (mark t)) (ding))
 	(setq mark-ring (cdr mark-ring)))))
 
-(define-function 'exchange-dot-and-mark 'exchange-point-and-mark)
+(defalias 'exchange-dot-and-mark 'exchange-point-and-mark)
 (defun exchange-point-and-mark ()
   "Put the mark where point is now, and point where the mark is now.
 This command works even when the mark is not active,